home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 147 / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan).7z / Gekkan Dennou Club - 2000.8 Vol. 147 (Japan) (Track 1).bin / music / omiya / nude.bas < prev    next >
BASIC Source File  |  2000-06-29  |  12KB  |  335 lines
  1.  1000 /*
  2.  1010 /*    *
  3.  1020 /*
  4.  1030 /*    Lyrics by
  5.  1040 /*    Music by
  6.  1050 /*    Arranged and programed by ＯＭＩＹＡ
  7.  1060 /*
  8.  1070 /*    Copyright
  9.  1080 /*
  10.  1090 /*    SOUND SOURCE  SC-55 / CM-64(with No.7 E.Guitar card) syncronized play
  11.  1100 /*    MASTER TUNE o4A = 440.0 Hz
  12.  1110 /*
  13.  1120 key 4,"list 10000-@M"
  14.  1130 key 8,"sa.@@H:\FSA003@M"
  15.  1140 key 18,"sa.@@d:\music\FSA003@M"
  16.  1150 key 7,"m_mute(10,11,18)@M"
  17.  1160 key 2,"m_debug(0)@M"
  18.  1170 key 3,"m_debug(1)@M"
  19.  1180 key 9,"!ZAM -I -D @M"
  20.  1190 key 11,"!TF @M"
  21.  1200 key 12,"!VIEW @M"
  22.  6000 exec_zms(".comment ")
  23.  7000 m_init()
  24.  8000 /* EXCLUSIVE
  25.  8010 dim char ARY(15)
  26.  8020 /* SOUND GENERATORS RESET
  27.  8030 mt32_init() /* CM-64
  28.  8040 sc55_init() /* SC-55
  29.  8050 /*
  30.  8060 /* CM-64 MUTE (CH.1-10 except ch 7,8)
  31.  8070 dim char MTps(8)={ 17,17,17,17,17,17, 8, 9,17 }
  32.  8080 mt32_part_setup(MTps)
  33.  8090 /*
  34.  8100 /* CM-64 MASTER TUNE/REVERB/PARTIAL RESERVE
  35.  8110 ARY={&H52,0,4 , 2, 9, 9, 9, 2, 0} /* PCM PART
  36.  8120 m_roland(&H10,&H16,ARY, 9)
  37.  8130 ARY={&H52,0,0,  &H38 , 0, 2, 2 }
  38.  8140 m_roland(&H10,&H16,ARY, 7 )
  39.  8150 dim char MTvr(8)={  0, 0, 0, 0, 0, 0, 16, 16, 0 }  /* LA PART
  40.  8160 mt32_p_reserve(MTvr)
  41.  8170 ARY={&H10,0,0,  &H40 , 0, 3, 5 }
  42.  8180 m_roland(&H10,&H16,ARY, 7 )
  43.  8190 /*
  44.  8200 /* SC-55 MUTE (ch.7-16 except ch10)
  45.  8210 dim char SCps(0)={ 17 }
  46.  8220 for z=7  to 16
  47.  8230   if z=10 then continue   /* skip DRUM PART
  48.  8240   sc55_part_setup(z,SCps)
  49.  8250 next
  50.  8260 /*
  51.  8270 /* SC-55 REVERB        CHR    LEVEL TIME  FB
  52.  8280 dim char SCrv(6)={   0,  0, 0,  112,  96,  0, 0}
  53.  8290 sc55_reverb(SCrv,16)
  54.  8300 /*
  55.  8310 /* SC-55 CHORUS
  56.  8320 dim char SCch(7)={  2,  0, 64,  8,  64,  3, 25,  0 }
  57.  8330 /*sc55_reverb(SCrv,16)
  58.  8340 /*
  59.  8350 /* SC-55 PARTIAL RESERVE
  60.  8360 ARY={2,2,8,6,0,0,0,0,0,6,0,0,0,0,0,0 }
  61.  8370 sc55_v_reserve(ARY)
  62.  8380 /*
  63.  8390 /* SC-55 ANOTHER DRUMSET (ch.9)
  64.  8400 ARY={&H40,&H19,&H15,2}
  65.  8410 /*m_roland(16,&H42,ARY,4)
  66.  8999 /*         end
  67.  9000 /*  TR / INSTRUMENT
  68.  9010 /*   1    Bass      Main tone
  69.  9015 /*   2    Bass      Picking tone ( Detune )
  70.  9020 /*   3    Drums     BD / SD / TOMS / CRASH CYMBALS
  71.  9030 /*   4    Drums     HI-HAT / RIDE CYMBAL
  72.  9040 /*   5    Vocal     Square wave
  73.  9050 /*   6    Guitar    Right ch. / Solo part
  74.  9060 /*   7    Guitar    Left ch.  / Solo part
  75.  9070 /*   8    Keyboard  Piano / Solo part
  76.  9080 /*   9    Keyboard  Strings  Brightness  Chorus
  77.  9090 /*  10    Guitar    Overdubbing part
  78.  9100 /*  11    Vocal     Effect / Echo
  79.  9110 /*  12    Vocal     Overdubbing chorus
  80. 10000 char CH(32)
  81. 10010 CH={12, 20,24,19,19,10,21,22,12,13,23,11,18}
  82. 10020 /*  ^last track number
  83. 10030 int TR(32)
  84. 10040 for z=1 to CH(0) : TR(z)=10000 : next
  85. 10049 /*    Gt1           Gt2            Gt(OD)       Key1
  86. 10050 /*TR(6)=16000 : TR(7)=16000 : TR(10)=6000 : TR(8)=8000
  87. 10060 for z=1 to CH(0) : m_alloc(z,TR(z))  : next
  88. 10070 for z=1 to CH(0) : m_assign(CH(z),z) : next
  89. 10080 m_tempo(132)
  90. 10090 char s(255) : str p(255)[256]
  91. 10100 str a[256],b[256],c[256],d[256],sc,cm
  92. 11000 sc="@I$41,17,$42" : cm="@I$41,$10,$16"
  93. 12000 write_assign(19,"K0            " )
  94. 20000 /*        ＢＡＳＳ
  95. 20010 p(0)="     @17   p3 @v115@q2 l16 o1 @K0  @u92 r2
  96. 20015 p(99)="[@]"
  97. 20016 p(96)="\6
  98. 20020 /* INTRO
  99. 20030 p(1)="r1^1
  100. 20040 p(2)="|:4 |:4 a8<ar>:| :|
  101. 20050 p(2)="|:4 |: a8<ar>a8<a>a& :| :|
  102. 20055 /*p(2)=" |:4 a8<ar>a8<a>a& :|  |:4 g8<gr>g8<g>g&:|
  103. 20060 /* A
  104. 20070 p(4)="|:4 |:4 a8<ar>:| :|
  105. 20080 p(4)="|:4 |: a8<ar>a8<a>a& :| :|
  106. 20090 /* B
  107. 20100 p(6)="|:4 f8<fr>:| |:4 g8<gr>:| |:4 e8<er>:| |:4 a8<ar>:|
  108. 20110 p(7)="|:4 f8<fr>:| |:4 g8<gr>:|<|:4 c8<cr>:|>|:4 e8<er>:|
  109. 20130 /* C
  110. 20140 p(8)="|:4 f8<fr>f8<f>f&:| |:4 e8<er>e8<e>e&:|
  111. 20150 p(9)="<|: d8<dr>d8<d>d&:|>|: g8<gr>g8<g>g&:| |:4 a8<ar>a8<a>a&:|
  112. 20160 /* D
  113. 20170 /*p(4)="|:4 |:4 a8<ar>:| :|
  114. 20180 p(10)="|:4 |: f8<fr>f8<f>f& :| :|
  115. 21000 s={99,0, 2,2, 4,4, 2,2, 4,4, 6,7,6,7,  8,9,8,9,
  116. 21020       99,2,2, 10,10, 2,2, 6,7,6,7, 8,9,8,9,
  117. 21030       2,2, 6,7,6,7, 8,9,8,9, 8,9,8,9, 10,96,10, 2,2, 255 }
  118. 21050 write(1)
  119. 22010 p(0)="     @26   p3 @v97 @q2 l16 o1 @K-8 @u92 r2
  120. 24050 /*write(2)
  121. 25000 /*        ＤＲＵＭＳ
  122. 25010 p(0)="     @9    p3  v16  q1 l8  o2 @K0  @u90 @R1 "+sc+"@E72,32
  123. 25015 p(90)="@Y$18,40,59  @Y$1A,36,112 @Y$18,36,63  @Y$1D,36,16 " /* SD / BD
  124. 25016 p(91)="@Y$1A,49,92  @Y$1C,49,46  @Y$1A,57,88  @Y$1C,57,82 " /* CRASH CYMBALS
  125. 25017 p(92)="@Y$1A,41,100 @Y$1A,43,100 @Y$1A,45,100 @Y$1A,47,100" /* TOM LEVEL
  126. 25018 p(93)="@Y$1C,41,32  @Y$1C,43,48  @Y$1C,45,80  @Y$1C,47,96 " /* TOM PAN
  127. 25019 p(97)="r2
  128. 25020 /* INTRO
  129. 25030 p(1)="r1^1
  130. 25040 p(2)="<c+*0> |:4 c4c*0e4c4c*0e4 :|
  131. 25060 /* A
  132. 25080 p(4)="<c+*0> |:4 c4c*0e4c4c*0e4 :|
  133. 25090 /* B
  134. 25100 p(6)="<c+*0> |:4 c4c*0e4c4c*0e4 :|
  135. 25110 p(7)="<a*0> |:4 c4c*0e4c4c*0e4 :|
  136. 25120 /* B
  137. 25130 /* C
  138. 25140 p(8)="<c+*0> |:4 c4c*0e4c4c*0e4 :|
  139. 25150 p(9)="<a*0> |:4 c4c*0e4c4c*0e4 :|
  140. 25160 /* D
  141. 25170 /*p(4)="|:4 |:4 a8<ar>:| :|
  142. 25180 p(10)="<c+*0> |:4 c4c*0e4c4c*0e4 :|
  143. 26000 s={0,90,91,92,93,97,
  144. 26010      2,2, 4,4, 2,2, 4,4, 6,7,6,7, 8,9,8,9,
  145. 26020      2,2, 10,10, 2,2, 6,7,6,7, 8,9,8,9,
  146. 26030      2,2, 6,7,6,7, 8,9,8,9, 8,9,8,9, 10,96,10, 2,2, 255 }
  147. 26050 write(3)
  148. 27000 /*
  149. 27001 /*a="f+@u-22f+@u+22
  150. 27002 a="Z52,30f+f+
  151. 27003 c="Z52,30,62,36f+f+f+f+
  152. 27004 /*b="<@u+38d+@u-38d+>
  153. 27005 b="Z82,44<d+d+>
  154. 27010 p(0)="                    q1 l8  o2      @u56 @R1
  155. 27015 p(90)="@Y$18,42,62 @Y$1C,42,88  @Y$18,46,62  @Y$1C,46,88 " /* HI-HAT
  156. 27016 p(91)="@Y$18,51,63 @Y$1D,51,32  @Y$1E,51,64  @Y$1C,51,40 " /* RIDE CYMBAL
  157. 27020 /* INTRO
  158. 27030 p(1)="r1^1
  159. 27040 p(2)="r4 |:15 f+a+:|
  160. 27060 /* A
  161. 27080 p(4)="r4 |:15 f+a+:|
  162. 27090 /* B
  163. 27100 p(6)="r4 |:15 f+a+:|
  164. 27110 p(7)="r4 |:15 f+a+:|
  165. 27130 /* C
  166. 27140 p(8)="r4 |:15 f+a+:|
  167. 27150 p(9)="r4 |:15 f+a+:|
  168. 27160 /* D
  169. 27170 /*p(4)="|:4 |:4 a8<ar>:| :|
  170. 27180 p(10)="r4 |:15 g+*0<r u+32d+u-32>:|
  171. 28000 s={0,90,91,97,
  172. 28010      2,2, 4,4, 2,2, 4,4, 6,7,6,7, 8,9,8,9,
  173. 28020      2,2, 10,10, 2,2, 6,7,6,7, 8,9,8,9,
  174. 28030      2,2, 6,7,6,7, 8,9,8,9, 8,9,8,9, 10,96,10, 2,2, 255 }
  175. 28050 write(4)
  176. 30000 /*        ＭＥＬＯＤＹ (Vocal)
  177. 30010 p(0)="I127 @48   p3 @v92  q8 l8  o5 @K0  @u98 @M96 @H37 "+sc+"@E64,0 r2
  178. 30020 p(1)="r1^1
  179. 30030 p(2)="r1^1^1^1
  180. 30040 p(3)="r1^1^1^1
  181. 30050 /* A
  182. 30060 p(4)="o5 r4d4c>b4a& a4.br<c4d& d4c4derc& c1
  183. 30070 p(5)="   r4e4de4g& g4e4dc4d& d4c4>b4<c>g& gaa4.r4.
  184. 30080 /* B
  185. 30090 p(6)="o5 crdr>b<crc& c4>b4ag4.< crdr>b<crc& c4>b4<c4d4
  186. 30100 p(7)="   e4.d4.>a4 b4.<c4d4. e4ge&e2 r4f4e4d4
  187. 30101 p(26)="o5 crdr>b<crc& c4>b4ag4.< crdr>b<crc& c4>b4<c4d4
  188. 30102 p(27)="   e4.d4.>a4 b4.<c4d4. e2rrg4 f4.e2r
  189. 30110 /* C
  190. 30120 p(8)="o5 e4d4>a4<ed& d>a4b<c4d4 e4d4>g4<ed& d>g4<fe4d4
  191. 30121 p(8)="o5 e4.d>r4<ed& d>a4b<c4d4 e4.d>r4<ed& d>b4<fe4d4
  192. 30130 p(9)="   crdr>b<crc& c4>b4<c4dc+& c+1 r4>b4<c4d4
  193. 30140 p(10)="o5 e4d4>a4<ed& d>a4b<c4d4 e4d4>g4<ed& d>g4<fe4d4
  194. 30141 p(10)="o5 e4.d>r4<ed& d>a4b<c4d4 e4.d>r4<ed& d>b4<fe4d4
  195. 30150 p(11)="   crdr>b<crc& c4d4c4g4 e1 r1
  196. 31000 s={0,
  197. 31010           2,2, 4,5, 2,2, 4,5, 6,7,26,27,  8,9,10,11,
  198. 31020           2,2, 2,2, 2,2, 6,7,26,27,  8,9,10,11,
  199. 31030           2,2, 6,7,26,27, 8,9,10,11, 8,9,10,11,    255 }
  200. 31050 write(5)
  201. 31510 p(0)="I127 @48   p3 @v92  q8 l8  o5 @K7  @u98 @M96 @H37 "+sc+"@E64,0 r2
  202. 31550 write(11)
  203. 32010 p(0)="     @48   p3  v11  q8 l8  o4 @K-4 @u88 @M72 @H35              r2 r1 r*2
  204. 33000 /*s={0,1, 4,       3,   3,   2, 2,  4,255}
  205. 33050 /*write(12)
  206. 40000 /*        ＫＥＹ　Ａ（ＰＩＡＮＯ）
  207. 40010 p(0)="I0   @2    p3  v15 @q3 l8  o3 @K2  @u92 "+sc+" @E60,20 r2
  208. 40020 /* INTRO
  209. 40030 p(1)="r1^1
  210. 40040 p(2)="o3 'a2..<ce>''a<df+'& 'a2..<df+''fb-<d'& 'f2..b-<d''fa<c'& 'f1a<c'
  211. 40050 /* A
  212. 40060 p(3)="o3 'e1a<c' 'c1fa' 'd1gb' 'e1a<c+'
  213. 40100 /* B
  214. 40110 p(10)="o3 |: 'g4b<d''a<ce'rr'a<ce'r'gb<d'& 'g4b<d''a<ce'r'gb<d''a4<ce'r:|
  215. 40120 p(11)="o3 |: 'g4b<d''a<ce'rr'a<ce'r|'gb<d'& 'g4b<d''a<ce'r'gb<d''a4<ce'r:| 'a<de'& 'a4<de''a<c+e'r'a<de''a4<c+e'r
  216. 40200 /* C
  217. 40210 p(12)="o3 r1^1^1^1
  218. 40220 p(13)="o3 r1^1^1^1
  219. 40300 /* D
  220. 40320 p(15)="o3 'f2..a<c>''fb-<d'& 'f2..b-<d''gb<d'& 'g2..b<d''fa<d'& 'f1a<d'
  221. 41000 s={0, 2,2, 2,2, 2,2, 2,2, 10,10,10,11, 12,13,12,13,
  222. 41010       2,2, 15,15, 2,2, 10,10,10,11, 12,13,12,13,
  223. 41020       2,2, 10,10,10,11, 12,13,12,13, 12,13,12,13,  15,96,15,2,2,  255 }
  224. 41050 write(8)
  225. 45000 /*        ＫＥＹ　Ｂ ( CHORD )
  226. 45010 p(0)="I0   @49   p3  v9  @q3 l8  o4 @K-4 @u96 "+sc+" @E60,32 r2
  227. 45020 /* INTRO
  228. 45030 p(1)="r1^1
  229. 45040 p(2)="o3 'a2..<ce>''a<df+'& 'a2..<df+''fb-<d'& 'f2..b-<d''fa<c'& 'f1a<c'
  230. 45050 /* A
  231. 45060 p(3)="o4 'e1a<c' 'c1fa' 'd1gb' 'e1a<c+'
  232. 45100 /* B
  233. 45110 p(10)="o4 'c1fa''d1gb''>b1<dg''c1ea'
  234. 45120 p(11)="o4 'c1fa''d1gb''e1g<c' 'e1gb'
  235. 45200 /* C
  236. 45210 p(12)="o3 'f1^1a<ce' 'e1^1gb<d'
  237. 45220 p(13)="o3 'd1fa<c''d1fgb' 'a1^1<c+eg'
  238. 45300 /* D
  239. 45320 p(15)="o3 'f1a<c>' 'f1b-<d' 'g1b<d' 'f1a<d'
  240. 46000 s={0, 2,2, 2,2, 2,2, 2,2, 10,11,10,11, 12,13,12,13,
  241. 46010       2,2, 15,15, 2,2, 10,11,10,11, 12,13,12,13,
  242. 46020       2,2, 10,11,10,11, 12,13,12,13, 12,13,12,13,  15,96,15,2,2,   255 }
  243. 46050 write(9)
  244. 50000 /*        ＧＵＩＴＡＲ　Ａ
  245. 50010 p(0)="     @69  @p96 v8  @q3 l8  o3 @K4  @u100"+cm+" r2
  246. 50030 p(1)="r1^1
  247. 50040 p(2)="o3 'a4<ce>'r'a4<ce>''a<ce>'r 'a<df+'& 'a<df+''a<df+'r'a4<df+''a<df+'r'fb-<d'& 'fb-<d''fb-<d'r'f4b-<d''fb-<d'r'fa<c'& 'fa<c''fa<c'r4|:'f16a<c'r16:|'f4a<c'
  248. 50050 /* A
  249. 50060 p(3)="o3 'e1a<c' 'c1fa' 'd1gb' 'e1a<c+'
  250. 50100 /* B
  251. 50110 p(10)="o3 'f4a<c'r'f8^2a<c' 'g4b<d'r'g8^2b<d' 'e4gb'r'e8^2gb' 'a4<ce'r'a8^2<ce'
  252. 50115 p(20)="o3 'f4a<c'r'f8^2a<c' 'g4b<d'r'g8^2b<d' 'g4<ce'r'g8^2ce' 'g4b<d'r'g8^2b<d'
  253. 50120 p(11)="o3 |: 'g4b<d''a<ce'rr'a<ce'r|'gb<d'& 'g4b<d''a<ce'r'gb<d''a4<ce'r:| 'a<de'& 'a4<de''a<c+e'r'a<de''a4<c+e'r
  254. 50200 /* C
  255. 50210 p(12)="o3 |:4 r'f4<ca''f<ca>':| |:4r'e4b<g''eb<g':|
  256. 50220 p(13)="o3 |:r'd4a<f''da<f':||:r'g4<dg''g<dg':| |:4r'a4<e<c+''a<e<c+':|
  257. 50300 /* D
  258. 50320 p(15)="o3 'f2..a<c>''fb-<d'& 'f2..b-<d''gb<d'& 'g2..b<d''fa<d'& 'f1a<d'
  259. 50330 p(40)="@107 ~25 u+20 p3
  260. 50340 p(41)="o3 r4.f4gab-& b-2^8<cde& e2^8fga& af4c2r
  261. 50350 p(42)=" r4.c16r16<c>b-ab-& b-g4d4>b4<g &g2r<dc>b <c4ge2^8
  262. 50450 p(43)="@69 _25 u-20 @p96
  263. 51000 s={0, 2,2, 2,2, 2,2, 2,2, 10,20,10,11, 12,13,12,13,
  264. 51010       2,2, 40,41,42,43, 2,2, 10,10,10,11, 12,13,12,13,
  265. 51020       2,2, 10,10,10,11, 12,13,12,13, 12,13,12,13,  15,96,15,2,2,  255 }
  266. 51050 write(6)
  267. 52000 p(0)="     @88  @p32 v8  @q3 l8  o3 @K-4 @u100"+cm+" r2
  268. 52330 p(40)="@114 ~25 u+20 p3
  269. 52460 p(43)="@88 _25 u-20 @p32
  270. 53050 write(7)
  271. 60000 m_play()
  272. 60010 end
  273. 60020 func write(t)
  274. 60030 int i=0
  275. 60040   while s(i)<>255
  276. 60050     m_trk(t,p(s(i)))
  277. 60060     i=i+1
  278. 60070   endwhile
  279. 60090 endfunc
  280. 60220 func fre()
  281. 60230 int t
  282. 60240   for t=1 to CH(0)
  283. 60250     print using " ## : #####(##) ";t,m_free(t),(TR(t)-m_free(t))*100/TR(t);
  284. 60260   next
  285. 60270   print
  286. 60280 endfunc
  287. 62100 func tcnt()
  288. 62110 str F : int st,ed,tl
  289. 62115   F=time$ : while F=time$ : endwhile
  290. 62120   st=tvl(): m_play()
  291. 62130   while 1
  292. 62135     locate 0,csrlin
  293. 62140     if m_stat()=0 then break
  294. 62143     tl=tvl()-st
  295. 62145     print using "####  ###:##";tl,tl/60,tl mod 60;
  296. 62150   endwhile
  297. 62160   ed=tvl() : tl=ed-st
  298. 62170   print using "####  ###:##";tl,tl/60,tl mod 60
  299. 62180 endfunc
  300. 62190 func tvl()
  301. 62200   int v : str tmp
  302. 62205   tmp=time$
  303. 62210   v=val(mid$(tmp,1,2))*3600
  304. 62220   v=v+val(mid$(tmp,4,2))*60
  305. 62230   v=v+val(mid$(tmp,7,2))
  306. 62240   return(v)
  307. 62250 endfunc()
  308. 62500 func str ORN(mml;str,kf) /* 装飾音符展開  #が使用不可能
  309. 62510 str S[256],E[256],BUF[256],x,y,z,k
  310. 62520 int p,b
  311. 62530   BUF=mml
  312. 62540   while 1
  313. 62550     p=strchr(BUF,35)
  314. 62560     if p=-1 then return(BUF)
  315. 62570     p=p+1
  316. 62580     S=left$(BUF,p-1)
  317. 62590     x=mid$(BUF,p+2,1)
  318. 62600     if x="+" or x="-" then {
  319. 62610       E=mid$(BUF,p+3,256) : k=mid$(BUF,p+1,2)
  320. 62620     } else {
  321. 62630       E=mid$(BUF,p+2,256) : k=mid$(BUF,p+1,1) }
  322. 62640     y="@K"+itoa(kf-64) : z="@K"+itoa(kf)
  323. 62650     x="{"+y+k+"&"+z+k+"}"
  324. 62660     BUF=S+x+E
  325. 62670   endwhile
  326. 62680 endfunc
  327. 65000 func write_assign(dr,ky;str)
  328. 65010 int t : str tmp
  329. 65020   for t=1 to CH(0)
  330. 65030     tmp="@n"+itoa(CH(t))+" @G12 "
  331. 65032     if CH(t)<>dr then tmp=tmp+ky
  332. 65035     m_trk(t,tmp)
  333. 65040   next
  334. 65050 endfunc
  335.